home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 June
/
Ahoy_Magazine_87-06_1987_Double_L.d64
/
Alpha Sprite
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
592b
|
18 lines
0 rem << cd42-6 >>
1 rem ==================================
2 rem commodares problem #38-3 :
3 print"[147]alpha sprite "
4 rem solution by
5 rem danny faught
6 rem ===== for c64 only ===========
7 rem ==================================
10 forx=0 to 7:read c(x):next:data 128,0,192,223,64,192,128,192
20 for x=832 to 895:pokex,0:next:print" _press a key"
30 get a$:if a$="" then 30
40 a=(asc(a$)+c(asc(a$)/32))and255 :poke 1024,a : p=-2048*(peek(53272)=23)
50 poke 56334,0 : poke 1,51
60 for x=0to7:poke 832+x*3,peek(53248+8*a+x+p):next
70 poke 1,55:poke 56334,1
80 v=53248 :poke 2040,13:poke v,100:poke v+1,100:poke v+23,1:poke v+29,1
90 poke v+21,1:goto 30